525
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

/*begin event InsertItem(long Item) - Occurs after a new item has been inserted to Items collection.*/
/*
any i
oComboBox = ole_1.Object
i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/
OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
var_Column2.Def(0,true)
var_Column2.DisplayFilterButton = true
var_Column2.DisplayFilterPattern = false
var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
var_Column3.DisplayFilterButton = true
var_Column3.FilterType = 10
var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
var_Column4.AllowSizing = false
var_Column4.AllowSort = false
var_Column4.Width = 32
var_Column4.FormatColumn = "1 apos ``"
var_Column4.Position = 0
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
h = var_Items.AddItem("Item B")
var_Items.CellCaption(h,1,"Sub-Item B")
var_Items.CellState(h,2,1)
var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
var_Column5.FilterType = 240
var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
524
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )

/*begin event InsertItem(long Item) - Occurs after a new item has been inserted to Items collection.*/
/*
any i
oComboBox = ole_1.Object
i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/
OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
var_Column2.Def(0,true)
var_Column2.DisplayFilterButton = true
var_Column2.DisplayFilterPattern = false
var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
var_Column3.DisplayFilterButton = true
var_Column3.FilterType = 10
var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
var_Column4.AllowSizing = false
var_Column4.AllowSort = false
var_Column4.Width = 32
var_Column4.FormatColumn = "1 apos ``"
var_Column4.Position = 0
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
h = var_Items.AddItem("Item B")
var_Items.CellCaption(h,1,"Sub-Item B")
var_Items.CellState(h,2,1)
var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "value + ` ` + available"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
var_Column5.FilterType = 240
var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
527
|
FilterBarCaption ALLUI Keyword ( sample 2, result )

/*begin event InsertItem(long Item) - Occurs after a new item has been inserted to Items collection.*/
/*
any i
oComboBox = ole_1.Object
i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/
OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
var_Column2.Def(0,true)
var_Column2.DisplayFilterButton = true
var_Column2.DisplayFilterPattern = false
var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
var_Column3.DisplayFilterButton = true
var_Column3.FilterType = 10
var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
var_Column4.AllowSizing = false
var_Column4.AllowSort = false
var_Column4.Width = 32
var_Column4.FormatColumn = "1 apos ``"
var_Column4.Position = 0
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
h = var_Items.AddItem("Item B")
var_Items.CellCaption(h,1,"Sub-Item B")
var_Items.CellState(h,2,1)
var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
var_Column5.FilterType = 240
var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
526
|
FilterBarCaption ALLUI Keyword ( sample 1 )

/*begin event InsertItem(long Item) - Occurs after a new item has been inserted to Items collection.*/
/*
any i
oComboBox = ole_1.Object
i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/
OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
var_Column2.Def(0,true)
var_Column2.DisplayFilterButton = true
var_Column2.DisplayFilterPattern = false
var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
var_Column3.DisplayFilterButton = true
var_Column3.FilterType = 10
var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
var_Column4.AllowSizing = false
var_Column4.AllowSort = false
var_Column4.Width = 32
var_Column4.FormatColumn = "1 apos ``"
var_Column4.Position = 0
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
h = var_Items.AddItem("Item B")
var_Items.CellCaption(h,1,"Sub-Item B")
var_Items.CellState(h,2,1)
var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "allui"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
var_Column5.FilterType = 240
var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
529
|
FilterBarCaption ALL Keyword ( sample 2, result )

/*begin event InsertItem(long Item) - Occurs after a new item has been inserted to Items collection.*/
/*
any i
oComboBox = ole_1.Object
i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/
OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
var_Column2.Def(0,true)
var_Column2.DisplayFilterButton = true
var_Column2.DisplayFilterPattern = false
var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
var_Column3.DisplayFilterButton = true
var_Column3.FilterType = 10
var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
var_Column4.AllowSizing = false
var_Column4.AllowSort = false
var_Column4.Width = 32
var_Column4.FormatColumn = "1 apos ``"
var_Column4.Position = 0
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
h = var_Items.AddItem("Item B")
var_Items.CellCaption(h,1,"Sub-Item B")
var_Items.CellState(h,2,1)
var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
var_Column5.FilterType = 240
var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
528
|
FilterBarCaption ALL Keyword ( sample 1 )

/*begin event InsertItem(long Item) - Occurs after a new item has been inserted to Items collection.*/
/*
any i
oComboBox = ole_1.Object
i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/
OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
var_Column2.Def(0,true)
var_Column2.DisplayFilterButton = true
var_Column2.DisplayFilterPattern = false
var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
var_Column3.DisplayFilterButton = true
var_Column3.FilterType = 10
var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
var_Column4.AllowSizing = false
var_Column4.AllowSort = false
var_Column4.Width = 32
var_Column4.FormatColumn = "1 apos ``"
var_Column4.Position = 0
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
h = var_Items.AddItem("Item B")
var_Items.CellCaption(h,1,"Sub-Item B")
var_Items.CellState(h,2,1)
var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "all"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
var_Column5.FilterType = 240
var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
534
|
Export Data in HTML format

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items,var_ShellBrowserWindow
any h,sFile
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.DrawGridLines = -1
oComboBox.HeaderAppearance = 4
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.FilterBarPromptType = 2
var_ConditionalFormats = oComboBox.ConditionalFormats
var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*child*`","child")
var_ConditionalFormat.ForeColor = RGB(255,128,128)
var_ConditionalFormat.ApplyTo = 0
var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*B*`","b")
var_ConditionalFormat1.ForeColor = RGB(0,0,255)
var_ConditionalFormat1.Bold = true
var_ConditionalFormat1.Italic = true
var_ConditionalFormat1.ApplyTo = 0
var_Columns = oComboBox.Columns
var_Column = var_Columns.Add("Value")
var_Column.Width = 128
var_Column.HTMLCaption = "<b>VA</b><r>sko"
var_Column1 = var_Columns.Add("APos")
var_Column1.FormatColumn = "0 apos ``"
var_Column1.AllowSort = false
var_Column1.Def(4,15790320)
var_Column1.Def(5,8421504)
var_Column1.Def(8,var_Column1.Def(5))
var_Column1.Position = 0
var_Column2 = var_Columns.Add("RPos")
var_Column2.FormatColumn = "0 rpos ``"
var_Column2.AllowSort = false
var_Column2.Position = 1
var_Column3 = var_Columns.Add("Index")
var_Column3.FormatColumn = "0 index ``"
var_Column3.DisplayFilterButton = true
var_Column3.FilterList = 256
var_Column3.Position = 2
var_Column4 = var_Columns.Add("Data 1")
var_Column4.FormatColumn = "0 index `A-Z`"
var_Column4.Def(0,true)
var_Column5 = var_Columns.Add("Data 2")
var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
var_Column5.Def(16,false)
var_Column5.Def(17,1)
var_Column5.Def(1,true)
var_Column6 = var_Columns.Add("Data 3")
var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
var_Column6.Def(17,1)
var_Items = oComboBox.Items
h = var_Items.AddItem("ParentA")
var_Items.InsertItem(h,,"Child A")
var_Items.InsertItem(h,,"Child B")
var_Items.CellState(h,4,1)
var_Items.CellBackColor(var_Items.InsertItem(h,,"Child C"),5,RGB(0,255,0))
var_Items.ExpandItem(h,true)
var_Items.AddItem("Item A")
h = var_Items.AddItem("ParentB")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.CellBackColor(var_Items.InsertItem(h,,"Child 3"),5,RGB(0,255,0))
var_Items.CellState(h,5,1)
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
var_Items.AddItem("Item D")
var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
sFile = "c:/temp/export.html"
oComboBox.Export(sFile,"vis")
var_ShellBrowserWindow = CREATE OLEObject
var_ShellBrowserWindow.ConnectToNewObject("InternetExplorer.Application")
var_ShellBrowserWindow.Navigate2(sFile)
|
533
|
Export Data in CSV format

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.DrawGridLines = -1
oComboBox.HeaderAppearance = 4
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.FilterBarPromptType = 2
var_ConditionalFormats = oComboBox.ConditionalFormats
var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*child*`","child")
var_ConditionalFormat.ForeColor = RGB(255,128,128)
var_ConditionalFormat.ApplyTo = 0
var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*B*`","b")
var_ConditionalFormat1.ForeColor = RGB(0,0,255)
var_ConditionalFormat1.Bold = true
var_ConditionalFormat1.Italic = true
var_ConditionalFormat1.ApplyTo = 0
var_Columns = oComboBox.Columns
var_Column = var_Columns.Add("Value")
var_Column.Width = 128
var_Column.HTMLCaption = "<b>VA</b><r>sko"
var_Column1 = var_Columns.Add("APos")
var_Column1.FormatColumn = "0 apos ``"
var_Column1.AllowSort = false
var_Column1.Def(4,15790320)
var_Column1.Def(5,8421504)
var_Column1.Def(8,var_Column1.Def(5))
var_Column1.Position = 0
var_Column2 = var_Columns.Add("RPos")
var_Column2.FormatColumn = "0 rpos ``"
var_Column2.AllowSort = false
var_Column2.Position = 1
var_Column3 = var_Columns.Add("Index")
var_Column3.FormatColumn = "0 index ``"
var_Column3.DisplayFilterButton = true
var_Column3.FilterList = 256
var_Column3.Position = 2
var_Column4 = var_Columns.Add("Data 1")
var_Column4.FormatColumn = "0 index `A-Z`"
var_Column4.Def(0,true)
var_Column5 = var_Columns.Add("Data 2")
var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
var_Column5.Def(16,false)
var_Column5.Def(17,1)
var_Column5.Def(1,true)
var_Column6 = var_Columns.Add("Data 3")
var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
var_Column6.Def(17,1)
var_Items = oComboBox.Items
h = var_Items.AddItem("ParentA")
var_Items.InsertItem(h,,"Child A")
var_Items.InsertItem(h,,"Child B")
var_Items.CellState(h,4,1)
var_Items.CellBackColor(var_Items.InsertItem(h,,"Child C"),5,RGB(0,255,0))
var_Items.ExpandItem(h,true)
var_Items.AddItem("Item A")
h = var_Items.AddItem("ParentB")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.CellBackColor(var_Items.InsertItem(h,,"Child 3"),5,RGB(0,255,0))
var_Items.CellState(h,5,1)
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
var_Items.AddItem("Item D")
var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
MessageBox("Information",string( String(oComboBox.Export("","vis")) ))
|
590
|
Expandable-caption

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.TreeColumnIndex = -1
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.ShowFocusRect = false
oComboBox.SingleEdit = true
oComboBox.SearchColumnIndex = 1
oComboBox.AdjustSearchColumn = false
oComboBox.HeaderVisible = false
oComboBox.Columns.Add("Default")
oComboBox.Columns.Add("Select").Visible = false
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("before item"),1,"before")
h = var_Items.AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
var_Items.CellCaptionFormat(h,0,1)
var_Items.CellSingleLine(h,0,false)
var_Items.CellCaption(h,1,"Bank Account")
var_Items.CellCaption(var_Items.AddItem("after item"),1,"after")
oComboBox.Select(1,"after")
oComboBox.EndUpdate()
|
591
|
Expandable-caption

/*begin event AnchorClick(string AnchorID, string Options) - Occurs when an anchor element is clicked.*/
/*
oComboBox = ole_1.Object
MessageBox("Information",string( String(AnchorID) ))
*/
/*end event AnchorClick*/
OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.TreeColumnIndex = -1
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.ShowFocusRect = false
oComboBox.SingleEdit = true
oComboBox.SearchColumnIndex = 1
oComboBox.AdjustSearchColumn = false
oComboBox.HeaderVisible = false
oComboBox.Columns.Add("Default")
oComboBox.Columns.Add("Select").Visible = false
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("before item"),1,"before")
h = var_Items.AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
var_Items.CellCaptionFormat(h,0,1)
var_Items.CellSingleLine(h,0,false)
var_Items.CellCaption(h,1,"Bank Account")
var_Items.CellCaption(var_Items.AddItem("after item"),1,"after")
oComboBox.Select(1,"after")
oComboBox.EndUpdate()
|
468
|
Does your control supports scrolling by touching the screen

OleObject oComboBox,rs
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.DataSource = rs
oComboBox.ScrollBySingleLine = true
oComboBox.AutoDrag = 4112 /*exAutoDragScrollOnShortTouch | exAutoDragScroll*/
oComboBox.EndUpdate()
|
405
|
Does your control support RightToLeft property for RTL languages or right to left

OleObject oComboBox,var_Column,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
oComboBox.RightToLeft = true
oComboBox.EndUpdate()
|
357
|
Does your control support prompt feature

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.AutoComplete = false
oComboBox.Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
|
22
|
Does your control support partial-check ( three states ) feature for each column

OleObject oComboBox,var_Column,var_Column1,var_Items
any h
oComboBox = ole_1.Object
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("P2")
var_Column1.Def(0,true)
var_Column1.PartialCheck = true
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
|
565
|
Does your control support multiple-selection

OleObject oComboBox,var_Columns,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.Style = 2
oComboBox.SingleSel = false
oComboBox.SingleEdit = true
oComboBox.LabelColumnIndex = 0
var_Columns = oComboBox.Columns
var_Columns.Add("Column")
var_Columns.Add("Sub-Column")
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item 1"),1,"SubItem 1.1")
var_Items.CellCaption(var_Items.AddItem("Item 2"),1,"SubItem 2.1")
var_Items.CellCaption(var_Items.AddItem("Item 3"),1,"SubItem 3.1")
var_Items.CellCaption(var_Items.AddItem("Item 4"),1,"SubItem 4.1")
var_Items.SelectItem(var_Items.ItemByIndex(1),true)
var_Items.SelectItem(var_Items.ItemByIndex(3),true)
oComboBox.EndUpdate()
|
352
|
Does you control support RTL languages or if there is a property RightToLeft

OleObject oComboBox,var_Column,var_Items
oComboBox = ole_1.Object
oComboBox.RightToLeft = true
oComboBox.ItemsAllowSizing = -1
oComboBox.DrawGridLines = 1
oComboBox.LinesAtRoot = -1
oComboBox.ScrollBySingleLine = true
oComboBox.DefaultItemHeight = 64
var_Column = oComboBox.Columns.Add("Column")
var_Column.Alignment = 2
var_Column.HeaderAlignment = 2
var_Column.EditAlignment = 2
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.ItemHeight(var_Items.InsertItem(var_Items.AddItem("Parent"),,"Item 2"),48)
var_Items.AddItem("Item 3")
var_Items.ExpandItem(var_Items.ItemByIndex(1),true)
|
319
|
Does the tooltip support HTML format

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
|
453
|
Does the control have the option to have a horizontal scroll to show entries which are longer than the display

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
oComboBox.Columns.Add("Default").Width = 512
var_Items = oComboBox.Items
var_Items.AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. " + CHAR(34) + "eXontrol" + CHAR(34) + " comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for " + CHAR(34) + "powerful" + CHAR(34) + " components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
var_Items.AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options.")
oComboBox.EndUpdate()
|
121
|
Do you have some function to retrieve all items to a safe array

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Items.AddItem(1)
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Items.AddItem(2)
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Items.AddItem(3)
|
122
|
Do you have some function to load data from a safe array

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.PutItems(oComboBox.GetItems(0))
|
548
|
Do do I get the DAO version I have installed
OleObject oComboBox
oComboBox = ole_1.Object
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("DAO.DBEngine.35")
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("DAO.DBEngine.36")
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("DAO.DBEngine.120")
|
546
|
Do do I get the ADO version I have installed
OleObject oComboBox
oComboBox = ole_1.Object
MessageBox("Information",string( "ADO Version:" ))
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("ADODB.Connection")
|
605
|
Displays the root item's index and value/caption using expressions

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_ConditionalFormat,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
oComboBox.AutoDrag = 3
oComboBox.SingleSel = false
oComboBox.DrawGridLines = -2
oComboBox.GridLineStyle = 48
oComboBox.ConditionalFormats.Add("%CC0 and %CX0").Bold = true
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyTo = 2 /*0x2 | */
var_Column = oComboBox.Columns.Add("Description")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Index")
var_Column1.FormatColumn = "1 index ``"
var_Column1.Position = 0
var_Column1.Width = 16
var_Column2 = oComboBox.Columns.Add("Root-Index")
var_Column2.FormatColumn = "root(1 index ``)"
var_Column2.Position = 1
var_Column2.Width = 32
var_Column2.Def(4,15790320)
var_Column3 = oComboBox.Columns.Add("Root-Value")
var_Column3.FormatColumn = "root(%0)"
var_Column3.Position = 2
var_Column3.Width = 32
var_Column3.Def(4,15790320)
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
var_Items.CellState(var_Items.InsertItem(h,,"Child 3"),0,1)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
|
604
|
Displays the parent item's index and caption/value using expressions

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_ConditionalFormat,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
oComboBox.AutoDrag = 3
oComboBox.SingleSel = false
oComboBox.DrawGridLines = -2
oComboBox.GridLineStyle = 48
oComboBox.ConditionalFormats.Add("%CC0 and %CX0").Bold = true
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyTo = 2 /*0x2 | */
var_Column = oComboBox.Columns.Add("Description")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Index")
var_Column1.FormatColumn = "1 index `I`"
var_Column1.Position = 0
var_Column1.Width = 16
var_Column2 = oComboBox.Columns.Add("Parent-Index")
var_Column2.FormatColumn = "parent(1 index `I`)"
var_Column2.Position = 1
var_Column2.Width = 32
var_Column2.Def(4,15790320)
var_Column3 = oComboBox.Columns.Add("Parent-Value")
var_Column3.FormatColumn = "parent(%0)"
var_Column3.Position = 2
var_Column3.Width = 32
var_Column3.Def(4,15790320)
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
var_Items.CellState(var_Items.InsertItem(h,,"Child 3"),0,1)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
|
601
|
Displays a glitch funnel for drop-down filter buttons (empty or active)

OleObject oComboBox,var_Appearance,var_Column,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.RenderType = -1
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZOiwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYReWAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
var_Appearance.Add(2,"CP:1 -2 0 0 0")
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.ShowFocusRect = false
oComboBox.Background(0,33554432 /*0x2000000*/)
oComboBox.Background(41,33554433 /*0x2000001*/)
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.HeaderVisible = true
var_Column = oComboBox.Columns.Add("1st col")
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterPattern = false
var_Column.Filter = "Item B"
var_Column.FilterType = 240
oComboBox.Columns.Add("2nd col")
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
587
|
Display a custom tooltip
/*begin event MouseMove(integer Button, integer Shift, long X, long Y) - Occurs when the user moves the mouse.*/
/*
oComboBox = ole_1.Object
oComboBox.ShowToolTip(String(oComboBox.ColumnFromPoint(-1,-1)),"",,"+8","+8")
*/
/*end event MouseMove*/
OleObject oComboBox
oComboBox = ole_1.Object
|
592
|
Disable temporarily the column's sort, resize and drag and drop

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.SortBarVisible = true
oComboBox.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
oComboBox.HeaderEnabled = false
oComboBox.HeaderAppearance = 4
oComboBox.Columns.Add("Index").FormatColumn = "1 index ``"
oComboBox.Columns.Add("Pos").FormatColumn = "1 apos ``"
oComboBox.Columns.Add("Edit")
oComboBox.GridLineStyle = 512
oComboBox.DrawGridLines = 2
oComboBox.EndUpdate()
|
588
|
Disable hover-all feature (Windows 11 or greater)
OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Background(500,RGB(1,0,0))
|
602
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Country").ShowIdem = " "
var_Items = oComboBox.Items
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
oComboBox.EndUpdate()
|
603
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
var_Items = oComboBox.Items
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
oComboBox.EndUpdate()
|
544
|
DAO, MDB, 120

OleObject oComboBox,rs,var_PrivDBEngine
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.120")
rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
543
|
DAO, MDB

OleObject oComboBox,rs,var_PrivDBEngine
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.36")
rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
545
|
DAO, ACCDB, 120

OleObject oComboBox,rs,var_PrivDBEngine
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.120")
rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
582
|
Change the clear-button appearance

OleObject oComboBox,var_Appearance,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"XP:Window 19 1")
var_Appearance.Add(2,"XP:Window 19 3")
oComboBox.Background(190,16777216 /*0x1000000*/)
oComboBox.Background(191,33554432 /*0x2000000*/)
oComboBox.Style = 2
oComboBox.HeaderVisible = false
oComboBox.IntegralHeight = true
oComboBox.ShowClearButton = 1
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.AddItem("Zero")
var_Items.AddItem("One")
var_Items.AddItem("Two")
oComboBox.Select(0,"Zero")
oComboBox.EndUpdate()
|
150
|
Can I use your EBN files to change the visual appearance for radio buttons

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.RadioImage(false,16777216)
oComboBox.RadioImage(true,33554432)
oComboBox.Columns.Add("Radio").Def(1,true)
var_Items = oComboBox.Items
var_Items.AddItem("Radio 1")
var_Items.CellState(var_Items.AddItem("Radio 2"),0,1)
var_Items.AddItem("Radio 3")
|
149
|
Can I use your EBN files to change the visual appearance for checkbox cells

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.CheckImage(0,16777216)
oComboBox.CheckImage(1,33554432)
oComboBox.Columns.Add("Check").Def(0,true)
var_Items = oComboBox.Items
var_Items.AddItem("Check 1")
var_Items.CellState(var_Items.AddItem("Check 2"),0,1)
|
151
|
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.LinesAtRoot = 1
oComboBox.HasButtons = 4
oComboBox.HasButtonsCustom(false,16777216)
oComboBox.HasButtonsCustom(true,33554432)
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
|
52
|
Can I use my own icons for the +/- ( expand/collapse ) buttons

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.LinesAtRoot = 1
oComboBox.HasButtons = 4
oComboBox.HasButtonsCustom(false,1)
oComboBox.HasButtonsCustom(true,2)
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
|
428
|
Can I specify an item to be a separator

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
oComboBox.SortOnClick = 0
oComboBox.Columns.Add("Numbers")
var_Items = oComboBox.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
h = var_Items.AddItem("separator")
var_Items.SelectableItem(h,false)
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemDividerLine(h,5)
var_Items.CellHAlignment(h,0,1)
var_Items.AddItem(3)
var_Items.AddItem(4)
oComboBox.EndUpdate()
|
430
|
Can I specify a terminal item so it will mark the end of childs

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ScrollBySingleLine = true
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.InsertItem(h,"","")
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemHeight(h,2)
var_Items.SelectableItem(h,false)
var_Items.SortableItem(h,false)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.InsertItem(h,"","")
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemHeight(h,2)
var_Items.SelectableItem(h,false)
var_Items.SortableItem(h,false)
oComboBox.EndUpdate()
|
556
|
Can I sort the column by image

OleObject oComboBox,var_Column,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Image")
var_Column.SortType = 48
var_Items = oComboBox.Items
var_Items.CellImage(var_Items.AddItem(),0,3)
var_Items.AddItem()
var_Items.CellImage(var_Items.AddItem(),0,1)
var_Items.CellImage(var_Items.AddItem(),0,2)
oComboBox.Columns.Item(0).SortOrder = 1
oComboBox.EndUpdate()
|
557
|
Can I sort the column by check-state

OleObject oComboBox,var_Column,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Check")
var_Column.Def(0,true)
var_Column.SortType = 32
var_Items = oComboBox.Items
var_Items.AddItem()
var_Items.CellState(var_Items.AddItem(),0,1)
var_Items.CellState(var_Items.AddItem(),0,1)
var_Items.AddItem()
oComboBox.Columns.Item(0).SortOrder = 1
oComboBox.EndUpdate()
|
599
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
OleObject oComboBox,var_Column,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("Items")
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterPattern = true
var_Column.Def(21,"*<%filter%>*")
var_Column.FilterType = 3
var_Column.Filter = "1"
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|
311
|
Can I remove the line being displayed by a divider item

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.MarkSearchColumn = false
oComboBox.TreeColumnIndex = -1
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
var_Items.CellCaption(h,1,"This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
var_Items.CellSingleLine(h,1,false)
h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLine(h,0)
var_Items.CellHAlignment(h,0,1)
|
34
|
Can I remove the "All", "Blanks" and "NonBlanks" items in the drop down filter window

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Column").DisplayFilterButton = true
oComboBox.Description(0,"")
oComboBox.Description(1,"")
oComboBox.Description(2,"")
|
31
|
Can I make strikeout the column's header

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Column 1").HeaderStrikeOut = true
|
573
|
Can I limit the number of characters the user can type into, similar with text-box's MaxLength property
OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Max 2 chars").EditMaxLength = 2
oComboBox.AutoSearch = false
oComboBox.AutoComplete = false
|
290
|
Can I let the user to resize at runtime the specified item

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.ScrollBySingleLine = true
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.ItemAllowSizing(var_Items.AddItem("resizable item"),true)
var_Items.AddItem("not resizable item")
|
54
|
Can I hide the hierarchy lines

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.LinesAtRoot = 1
oComboBox.HasLines = 0
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
|
401
|
Can I have an image displayed after the text. Can I get that effect without using HTML content

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column").Def(34,"caption,icon,check,icons,picture")
var_Items = oComboBox.Items
h = var_Items.AddItem("Text")
var_Items.CellImage(h,0,1)
|
42
|
Can I filter for values using OR - NOT , instead AND operator

OleObject oComboBox,var_Column,var_Column1,var_Column2
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
var_Column.DisplayFilterButton = true
var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterType = 1
var_Column2 = oComboBox.Columns.Add("Column 3")
var_Column2.DisplayFilterButton = true
var_Column2.FilterType = 1
oComboBox.FilterCriteria = "%0 or not %1 and %2"
oComboBox.ApplyFilter()
|
8
|
Can I displays a custom size picture to column's header

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oComboBox.HeaderHeight = 48
oComboBox.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
|
403
|
Can I display the cell's check box after the text

OleObject oComboBox,var_Column,var_Items
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
var_Column.Def(0,true)
var_Column.Def(34,"caption,check")
var_Items = oComboBox.Items
var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0,true)
var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0,true)
|
371
|
Can I display the absolute value or positive part of the number

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.Columns.Add("Number")
oComboBox.Columns.Add("Abs").ComputedField = "abs(%0)"
var_Items = oComboBox.Items
var_Items.AddItem("-1.98")
var_Items.AddItem("0.99")
var_Items.AddItem("1.23")
var_Items.AddItem("2.34")
|
19
|
Can I display multiple icons to the column's header

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column 1").HTMLCaption = "1<img>1</img> 2 <img>2</img>..."
|
161
|
Can I display an additional buttons in the scroll bar

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ScrollPartVisible(1,32768,true)
oComboBox.ScrollPartVisible(1,16384,true)
oComboBox.ScrollPartVisible(1,1,true)
oComboBox.ScrollPartVisible(1,2,true)
|
209
|
Can I display a computed column so it displays the VAT, or SUM

OleObject oComboBox,var_Items,var_Items1
oComboBox = ole_1.Object
oComboBox.Columns.Add("A")
oComboBox.Columns.Add("B")
oComboBox.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem(1),1,2)
var_Items1 = oComboBox.Items
var_Items1.CellCaption(var_Items1.AddItem(10),1,20)
|
285
|
Can I display a button with some picture or icon inside

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
var_Items.CellCaption(h,1," Button <img>p1</img> ")
var_Items.CellCaptionFormat(h,1,1)
var_Items.CellHAlignment(h,1,2)
var_Items.CellHasButton(h,1,true)
var_Items.ItemHeight(h,48)
|
284
|
Can I display a button with some picture or icon inside

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
var_Items.CellCaption(h,1," Button <img>1</img> ")
var_Items.CellCaptionFormat(h,1,1)
var_Items.CellHAlignment(h,1,2)
var_Items.CellHasButton(h,1,true)
|
283
|
Can I display a button with some icon inside

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
var_Items.CellCaption(h,1," <img>1</img> ")
var_Items.CellCaptionFormat(h,1,1)
var_Items.CellHAlignment(h,1,2)
var_Items.CellHasButton(h,1,true)
|
10
|
Can I disable sorting a column, when the user clicks the column's header, or drag it to the sort bar

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Unsortable").AllowSort = false
oComboBox.Columns.Add("Sortable")
|
567
|
Can I customize the count of selected items, shown on the right side of the control's label (multiple-selection)

OleObject oComboBox,var_Columns,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.Style = 2
oComboBox.SingleSel = false
oComboBox.SingleEdit = true
oComboBox.LabelColumnIndex = 0
oComboBox.SelBackColor = RGB(51,153,255)
oComboBox.SelForeColor = RGB(255,255,255)
oComboBox.LabelText = "<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>"
var_Columns = oComboBox.Columns
var_Columns.Add("Column")
var_Columns.Add("Sub-Column")
var_Items = oComboBox.Items
var_Items.CellCaption(var_Items.AddItem("Item 1"),1,"SubItem 1.1")
var_Items.CellCaption(var_Items.AddItem("Item 2"),1,"SubItem 2.1")
var_Items.CellCaption(var_Items.AddItem("Item 3"),1,"SubItem 3.1")
var_Items.CellCaption(var_Items.AddItem("Item 4"),1,"SubItem 4.1")
var_Items.SelectItem(var_Items.ItemByIndex(1),true)
var_Items.SelectItem(var_Items.ItemByIndex(3),true)
oComboBox.EndUpdate()
|
378
|
Can I convert the expression to date

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.Columns.Add("Number")
oComboBox.Columns.Add("Date").ComputedField = "date(dbl(%0))"
var_Items = oComboBox.Items
var_Items.AddItem("-1.98")
var_Items.AddItem("30000.99")
var_Items.AddItem("3561.23")
var_Items.AddItem("1232.34")
|
377
|
Can I convert the expression to a number, double or float

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.Columns.Add("Number")
oComboBox.Columns.Add("Number + 2").ComputedField = "dbl(%0)+2"
var_Items = oComboBox.Items
var_Items.AddItem("-1.98")
var_Items.AddItem("0.99")
var_Items.AddItem("1.23")
var_Items.AddItem("2.34")
|
174
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

OleObject oComboBox,var_Items,var_Items1
oComboBox = ole_1.Object
oComboBox.FormatAnchor(false,"<b><u><fgcolor=880000> </fgcolor></u></b>")
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.CellCaptionFormat(var_Items.AddItem("Just an <a1>anchor</a> element ..."),0,1)
var_Items1 = oComboBox.Items
var_Items1.CellCaptionFormat(var_Items1.AddItem("Just another <a2>anchor</a> element ..."),0,1)
oComboBox.Items.AddItem("next item")
|
173
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

OleObject oComboBox,var_Items,var_Items1
oComboBox = ole_1.Object
oComboBox.FormatAnchor(true,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
var_Items.CellCaptionFormat(var_Items.AddItem("Just an <a1>anchor</a> element ..."),0,1)
var_Items1 = oComboBox.Items
var_Items1.CellCaptionFormat(var_Items1.AddItem("Just another <a2>anchor</a> element ..."),0,1)
|
53
|
Can I change the style or type for the hierarchy lines

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.LinesAtRoot = 1
oComboBox.HasLines = 2
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
|
312
|
Can I change the style of the line being displayed by a divider item

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.MarkSearchColumn = false
oComboBox.TreeColumnIndex = -1
oComboBox.ScrollBySingleLine = false
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
var_Items.CellCaption(h,1,"This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
var_Items.CellSingleLine(h,1,false)
h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLine(h,4)
var_Items.CellHAlignment(h,0,1)
var_Items.ItemHeight(h,24)
|
402
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column").Def(34,"caption,check,icon,icons,picture")
var_Items = oComboBox.Items
h = var_Items.AddItem("Text")
var_Items.CellImage(h,0,1)
var_Items.CellHasCheckBox(h,0,true)
|
170
|
Can I change the order of the buttons in the scroll bar

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ScrollOrderParts(1,"t,l,r")
oComboBox.ScrollOrderParts(0,"t,l,r")
|
39
|
Can I change the OR string in the filter bar

OleObject oComboBox,var_Column,var_Column1
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
var_Column.DisplayFilterButton = true
var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterType = 2
oComboBox.FilterCriteria = "%0 or %1"
oComboBox.Description(23," | ")
oComboBox.ApplyFilter()
|
41
|
Can I change the NOT string in the filter bar

OleObject oComboBox,var_Column,var_Column1
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
var_Column.DisplayFilterButton = true
var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterType = 2
oComboBox.FilterCriteria = "not %0 or %1"
oComboBox.Description(24," ! ")
oComboBox.Description(10," ! IsBlank")
oComboBox.ApplyFilter()
|
20
|
Can I change the height of the header bar

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.HeaderHeight = 32
|
317
|
Can I change the foreground color for the tooltip

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
|
318
|
Can I change the forecolor for the tooltip

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Background(66,RGB(255,0,0))
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
|
21
|
Can I change the font to display the column's header

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.HeaderHeight = 34
oComboBox.Columns.Add("Column 1").HTMLCaption = "<font Tahoma;14>Column</font> 1"
|
171
|
Can I change the font for the tooltip

OleObject oComboBox,var_StdFont
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
var_StdFont = oComboBox.ToolTipFont
var_StdFont.Name = "Tahoma"
var_StdFont.Size = 14
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
|
172
|
Can I change the font for the tooltip

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
|
321
|
Can I change the default border of the tooltip, using your EBN files

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.Background(64,16777216 /*0x1000000*/)
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
|
320
|
Can I change the background color for the tooltip

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Background(65,RGB(255,0,0))
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
|
362
|
Can I change the background color for items or cells that contains a specified string

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0)
oComboBox.Columns.Add("")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Chld 3")
var_Items.ExpandItem(h,true)
|
38
|
Can I change the AND string in the filter bar

OleObject oComboBox,var_Column,var_Column1
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
var_Column.DisplayFilterButton = true
var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
var_Column1.DisplayFilterButton = true
var_Column1.FilterType = 2
oComboBox.Description(11," & ")
oComboBox.ApplyFilter()
|
46
|
Can I change the "Today" caption being displayed in the drop down calendar, when I filter for dates

OleObject oComboBox,var_Column
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterDate = true
oComboBox.Description(16,"Azi")
oComboBox.ApplyFilter()
|
43
|
Can I change the "Date:" caption when the column's drop down filter window is shown

OleObject oComboBox,var_Column
oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterDate = true
oComboBox.Description(12,"Range")
oComboBox.ApplyFilter()
|
536
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
oComboBox.Columns.Add("Default").Width = 128
var_Items = oComboBox.Items
var_Items.CellSingleLine(var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,1)
var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oComboBox.EndUpdate()
|
535
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

OleObject oComboBox,var_Column,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
var_Column = oComboBox.Columns.Add("Default")
var_Column.Width = 128
var_Column.Def(16,1)
var_Items = oComboBox.Items
var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oComboBox.EndUpdate()
|
105
|
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance

OleObject oComboBox,var_Column
oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.FilterBarBackColor = 16777216 /*0x1000000*/
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = true
var_Column.FilterType = 1
oComboBox.ApplyFilter()
|
431
|
Can I allow sorting only the child items

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Childs")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.SortableItem(h,false)
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.SortableItem(h,false)
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
|
291
|
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.ItemHasChildren(var_Items.AddItem("parent item with no child items"),true)
var_Items.AddItem("next item")
|
187
|
By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header

OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.Columns.Add("Sort").DefaultSortOrder = true
|
75
|
By default, the column gets sorted as strings, so how do I sort a column by time only

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 4
var_Items = oComboBox.Items
var_Items.AddItem("11:00")
var_Items.AddItem("10:10")
var_Items.AddItem("12:12")
var_Items.SortChildren(0,0,false)
|
73
|
By default, the column gets sorted as strings, so how do I sort a column by dates

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 2
var_Items = oComboBox.Items
var_Items.AddItem("1/1/2001")
var_Items.AddItem("1/2/2002")
var_Items.AddItem("1/3/2003")
var_Items.SortChildren(0,0,false)
|
74
|
By default, the column gets sorted as strings, so how do I sort a column by date and time

OleObject oComboBox,var_Items
oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 3
var_Items = oComboBox.Items
var_Items.AddItem("1/1/2001 11:00")
var_Items.AddItem("1/1/2001 10:10")
var_Items.AddItem("1/3/2003")
var_Items.SortChildren(0,0,false)
|
606
|
Bolds only the expanded items

OleObject oComboBox,var_Items
any h
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
oComboBox.ConditionalFormats.Add("%CX0").Bold = true
oComboBox.Columns.Add("Description")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
var_Items.CellState(var_Items.InsertItem(h,,"Child 3"),0,1)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
oComboBox.EndUpdate()
|
593
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
/*begin event MouseMove(integer Button, integer Shift, long X, long Y) - Occurs when the user moves the mouse.*/
/*
oComboBox = ole_1.Object
oComboBox.ShowToolTip("new content","",,"+8","+8")
*/
/*end event MouseMove*/
OleObject oComboBox
oComboBox = ole_1.Object
oComboBox.ToolTipMargin = "16,8"
|
539
|
ADOR, MDB

OleObject oComboBox,rs
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
541
|
ADOR, ACCDB

OleObject oComboBox,rs
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
540
|
ADODB, MDB

OleObject oComboBox,rs
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
542
|
ADODB, ACCDB, x64

OleObject oComboBox,rs
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()
|
531
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

OleObject oComboBox,var_Column,var_Column1,var_ConditionalFormat,var_Items
oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = true
oComboBox.DefaultItemHeight = 20
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
var_Column = oComboBox.Columns.Add("Default")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Position")
var_Column1.FormatColumn = "1 rindex ``"
var_Column1.Visible = false
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%C1 mod 2")
var_ConditionalFormat.BackColor = 16777216 /*0x1000000*/
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
oComboBox.EndUpdate()
|